home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / falcon / falclib5 / routs / loadfile.s < prev    next >
Text File  |  1995-04-27  |  404b  |  32 lines
  1. *
  2. *    Laddar in en fil och packar eventuellt upp den (ice 2.40).
  3. *    a5.l=adr. till nollavslutat filnamn
  4. *    a6.l=dest
  5. *    d7.l=fillängd
  6. *    
  7.  
  8.  
  9.     include    gem.s
  10.     include    ice.s
  11.  
  12.  
  13. @loadfile
  14.     move    #0,-(sp)
  15.     move.l    a5,-(sp)
  16.     @gemdos    $3d,8
  17.     move    d0,d6
  18.  
  19.     move.l    a6,-(sp)
  20.     move.l    d7,-(sp)
  21.     move    d6,-(sp)
  22.     @gemdos    $3f,12
  23.  
  24.     move    d6,-(sp)
  25.     @gemdos    $3e,4
  26.     
  27.     move.l    a6,a0
  28.     bsr    @icedecrunch
  29.  
  30.     rts
  31.  
  32.